home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / searchgu.lha / SearchGuide / Install / Install_SearchGuide < prev   
Text File  |  1996-11-30  |  6KB  |  175 lines
  1. ; $VER: Install_SearchGuide 0.8.2.1 (30.11.96) by Gérard Cornu ;-)
  2.  
  3. ;-- Language specific string definitions --------------------------------------
  4.  
  5. ; ENGLISH -----------------------------
  6. (procedure P_english (
  7.     (set #MSG_DESTINATION (cat "Where would you like SearchGuide to be installed?\n"
  8.                           "(It is recommanded to put it in your \"C:\" directory, otherwise"
  9.                           " you'll have to put the full path in your \"Search\" button's links).\n"
  10.                           "(NO drawer will be created)"))
  11.     (set #MSG_COPYING "Going to copy %s to %s.")
  12.     (set #MSG_WHATCATS "Select the language(s) you want to have Catalog files for:")
  13.     (set #MSG_WHATDOC "Install the documentation in AmigaGuide\nformat for this language:")
  14.     (set #MSG_NONE "none")
  15.     (set #MSG_WHEREDOC "Where shall I put the documentation?")
  16.     (set #MSG_OVERWRITE "\n\n\n\n\n%s already exists.\nOverwrite?")
  17.     (set #MSG_YES "Yes")
  18.     (set #MSG_NO "No")
  19.     (set #MSG_THANKS "\n\nThanks for installing %s.")
  20.     (set #catalogs %000)
  21. ))
  22.  
  23. ; FRANÇAIS ----------------------------
  24. ; Translation by Gérard Cornu ;-)
  25. (procedure P_français (
  26.     (set #MSG_DESTINATION (cat "Où désirez-vous installer SearchGuide?\n"
  27.                                "(Il est recommandé de sélectionner le répertoire \"C:\", sinon"
  28.                                " il vous faudra indiquer le chemin complet dans vos liens de boutons"
  29.                                " de recherche).\n"
  30.                                "(AUCUN tiroir ne sera créé)"))
  31.     (set #MSG_COPYING "Prêt â copier %s vers %s.")
  32.     (set #MSG_WHATCATS "Selectionnez le(s) langage(s) pour lesquels vous désirez des fichiers catalogues:")
  33.     (set #MSG_WHATDOC "Installation de la documentation au format\nAmigaGuide pour ce langage:")
  34.     (set #MSG_NONE "aucun")
  35.     (set #MSG_WHEREDOC "Où dois-je mettre la documentation?")
  36.     (set #MSG_OVERWRITE "\n\n\n\n\n%s existe déjà.\nDois-je l'écraser?")
  37.     (set #MSG_YES "Oui")
  38.     (set #MSG_NO "Non")
  39.     (set #MSG_THANKS "\n\nMerci d'avoir installé %s.")
  40.     (set #catalogs %0000010)
  41. ))
  42. ;------------------------------------------------------------------------------
  43.  
  44. (if (= @language "english")  (P_english))
  45. (if (= @language "français") (P_français))
  46. (if (= @user-level 0) (set #catalogs %1111111))
  47.  
  48. (set #docdir "HELP:")
  49.  
  50. (set #destination
  51.    (askdir
  52.       (prompt #MSG_DESTINATION)
  53.       (help @askdir-help)
  54.       (default "C:")
  55.    )
  56. )
  57.  
  58. (set @default-dest #destination)
  59.  
  60. (copyfiles  (prompt (#MSG_COPYING "SearchGuide" @default-dest))
  61.             (help @copyfiles-help)
  62.             (source "/SearchGuide")
  63.             (dest @default-dest)
  64.             (nogauge)
  65. )
  66.  
  67. (set #installed 1)
  68.  
  69. (if (exists "LOCALE:" (noreq))
  70.     (
  71.         (set #catalogs
  72.             (askoptions (prompt #MSG_WHATCATS)
  73.                         (help @askoptions-help)
  74.                         (choices "deutsch" "français" "italiano" "nederlands" "norwegian" "polish" "swedish" "español")
  75.                         (default #catalogs))
  76.         )
  77.         (if (BITAND #catalogs %00000010)
  78.             (copyfiles  (help @copyfiles-help)
  79.                         (source "/Catalogs/français/SearchGuide.catalog")
  80.                         (dest "LOCALE:Catalogs/français")
  81.                         (nogauge)
  82.                         (optional "nofail"))
  83.         )
  84.         (if (BITAND #catalogs %00000001)
  85.             (copyfiles  (help @copyfiles-help)
  86.                         (source "/Catalogs/deutsch/SearchGuide.catalog")
  87.                         (dest "LOCALE:Catalogs/deutsch")
  88.                         (nogauge)
  89.                         (optional "nofail"))
  90.         )
  91.         (if (BITAND #catalogs %00000100)
  92.             (copyfiles  (help @copyfiles-help)
  93.                         (source "/Catalogs/italiano/SearchGuide.catalog")
  94.                         (dest "LOCALE:Catalogs/italiano")
  95.                         (nogauge)
  96.                         (optional "nofail"))
  97.         )
  98.         (if (BITAND #catalogs %00001000)
  99.             (copyfiles  (help @copyfiles-help)
  100.                         (source "/Catalogs/nederlands/SearchGuide.catalog")
  101.                         (dest "LOCALE:Catalogs/nederlands")
  102.                         (nogauge)
  103.                         (optional "nofail"))
  104.         )
  105.         (if (BITAND #catalogs %00010000)
  106.             (copyfiles  (help @copyfiles-help)
  107.                         (source "/Catalogs/norsk/SearchGuide.catalog")
  108.                         (dest "LOCALE:Catalogs/norsk")
  109.                         (nogauge)
  110.                         (optional "nofail"))
  111.         )
  112. ›       (if (BITAND #catalogs %00100000)
  113.             (copyfiles  (help @copyfiles-help)
  114.                         (source "/Catalogs/polski/SearchGuide.catalog")
  115.                         (dest "LOCALE:Catalogs/polski")
  116.                         (nogauge)
  117.                         (optional "nofail"))
  118.         )
  119. ›       (if (BITAND #catalogs %01000000)
  120.             (copyfiles  (help @copyfiles-help)
  121.                         (source "/Catalogs/svenska/SearchGuide.catalog")
  122.                         (dest "LOCALE:Catalogs/svenska")
  123.                         (nogauge)
  124.                         (optional "nofail"))
  125.         )
  126. ›       (if (BITAND #catalogs %10000000)
  127.             (copyfiles  (help @copyfiles-help)
  128.                         (source "/Catalogs/español/SearchGuide.catalog")
  129.                         (dest "LOCALE:Catalogs/español")
  130.                         (nogauge)
  131.                         (optional "nofail"))
  132.         )
  133.     
  134.     )
  135. )
  136.  
  137.  
  138. (set #docdir
  139.    (askdir (prompt #MSG_WHEREDOC)
  140.            (help @askdir-help)
  141.            (default #docdir)
  142.    )
  143. )
  144.  
  145. (copyfiles  (help @copyfiles-help)
  146.             (source "/SearchGuide.Guide")
  147.             (dest #docdir)
  148.             (newname "SearchGuide.guide")
  149.             (infos)
  150.             (optional "nofail")
  151.             (nogauge)
  152. )
  153.  
  154. ; Choose default tool for guide, depending on user's OS version
  155. (set #osversion  (/ (getversion) 65536))
  156. (if (>= #osversion 39)
  157.    (set #reader "MultiView") 
  158.    (set #reader "AmigaGuide")
  159. )
  160.  
  161. (if (exists (tackon #docdir "SearchGuide.guide.info") (noreq))
  162.     (
  163.         (tooltype   (dest (tackon #docdir "SearchGuide.guide"))
  164.                     (noposition) (setdefaulttool #reader))
  165.          
  166.     )
  167. )
  168.  
  169. (if (= 1 #installed)
  170.    (exit (#MSG_THANKS @app-name))
  171.    (exit (quiet))
  172. )
  173.  
  174.  
  175.